home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d16 / wc15_b.arc / VIDTEX.WMS < prev    next >
Text File  |  1991-03-22  |  2KB  |  65 lines
  1. ;Playback of VIDTEX files demo
  2.  
  3. STOP                               ;stops the session if started
  4. USERWINDOW(5,0,0,49344)
  5. METABKG(0,0,1,"synapp.wmf")        ;displays the SYNAPPSYS logo
  6. show(6)
  7. lenth = 2
  8. GOSUB pause
  9.    DIALOGBOX 50, 50, 251, 77, 21, "VIDTEX Demonstration"
  10.       LTEXT 14, 8, 229, 24, "This part of the demonstration will replay a file that contains VIDTEX escape sequences with GIF and RLE graphics.  The file was captured during a session while online with Compuserve."
  11.       LTEXT 13, 32, 227, 17, "The graphics can be copied to the clipboard and pasted into another Windows application."
  12.       DEFCANCELBUTTON 104, 53, 50, 15, "&OK"
  13.    DEND
  14. dtime = 20
  15. gosub delay
  16.  
  17. CLEAR
  18. DELOBJECT(0,0,0)              ;clears the graphic
  19. show(8)
  20. open("VIDTEX.wsf","",1)       ;opens the session file setup with VT102 terminal type selected
  21. lenth = 2
  22. key1 = 0
  23. key = 38
  24.  
  25.  
  26. lenth = 1
  27. sendspeckey(1,0,asc("F"))     ; 1 == alt key, selects the FILE menu
  28. gosub pause
  29. sendspeckey(0,0,asc("Y"))     ; selects the Playback menu item
  30. gosub pause
  31. sendspeckey(0,0,asc("V"))     ; types VT102.EMU in the edit box
  32. sendspeckey(0,0,asc("I"))
  33. sendspeckey(0,0,asc("D"))
  34. sendspeckey(0,0,asc("T"))
  35. sendspeckey(0,0,asc("E"))
  36. sendspeckey(0,0,asc("X"))
  37. sendspeckey(0,0,110)
  38. sendspeckey(0,0,asc("E"))
  39. sendspeckey(0,0,asc("M"))
  40. sendspeckey(0,0,asc("U"))
  41. gosub pause
  42. sendspeckey(0,0,13)           ; send carrage return
  43.  
  44. HALT
  45.  
  46. pause:
  47. i = TIME?+lenth
  48. WHILE(TIME? <i)
  49. WEND
  50. RETURN
  51.  
  52.  
  53. delay:                          ;automatically destroys the dialog box by 
  54. i = TIME? + dtime                 ;sending a carrage return after a timeout
  55. j = 255                         ;if the CONTINUE button is not selected beforehand
  56. WHILE((TIME?<i) && (j == 255))
  57. j = DIALOG?
  58. WEND
  59. if(j == 255)
  60.   SENDSPECKEY(0,0,13)
  61. RETURN
  62.  
  63. END
  64.  
  65.